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| C 14 
| SF ILE**1D**BASPOWJJ 

BBBBBBBB AAAAAA SSSSSSSS__PPPPPPPP 000000 +s ww ww 

BBBBBBBB AAAAAA Ssssssss PPPPPPPP 000000 «WW ww 

BB BB AA AA SS PP PP 00 00 WW wd 

BB BB AA AA 8S PP PP 00 00 WW WW 

BB BB AA AA 8S pp PP 00 00 WW wd 

BB AA AA 88 PP PP 00 00 WW wd 

BBBBBBBB AA AA SSSSSS_-s«PPPRPPPP. 00 00 WW wid 
BBB AA AA -SSSSSS__—SsPPRPPPPPP = 0 00 WW wi 

BB BB AAAAAAAAAA SS PP 00 00 WW WW WwW 

BB BB AAAAAAAAAA 83 PP 00 00 WW WW Ww 

BB BB AA AA 8S PP 00 00 WWWW WwWW 

BB BB AA AA $8 PP 00 00 wWwWW WwW 

BBBBBBBB. AA AA SSSSSSSS- PP o00000—s ww wd 

BBBBBBBB AA AA SSSSSSSS_~PP 000000 «WW ww 
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tt Il gsssss 

tL II SS 

tL Il §§ 

tL 11 38 

tL 1] $8 
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BASSPOWJ J ; BASIC integer ** integer 
Table of contents 
ig} 58 tS TH ae 
(3) 94 BASSPOWJJ = BASIC word ** word 
(4) 210 BASS$POWJJ_NIV 
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bee ; BASIC integer ** integer ub ot tat by 98: 90 :g4 rtd ig Macro Vv04-00 Page 1 
| 1-0 6-SEP-1984 0 (CBASRTL.SRCIBASPOWJJ.MAR; 1 (1) 
-TITLE BAS$POWJJ ; BASIC integer ** integer , 
| -IDENT /1=006/ 3 File: BASPOWJJ.MAR Edit: LB1006 


'MARABAAARARARAALAAAALALASS ALE SALALESESA SALE ARE ESE E EASES RES EEE E ER ER EEE ES ES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og he 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH b ice se AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 


ad * 
°* * 
:* * 
Hil ® 
°® * 
‘ft & 
°f * 
°® * 
:* 0 * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
°® * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
°® * 
°® & 
of * 
:® * 
°® * 
st * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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*+¢+ 
; FACILITY: Basic Support Library 
; ABSTRACT: 


This module contains entry points to reer exponentiation 
(** or *) in BASIC-PLUS-2 for LONG ** 


; ENVIRONMENT: User Mode, AST Reentrant 


3; AUTHOR: R. Will ~ CREATION DATE: 22-NOV-78 

3; MODIFIED BY: 

3 Witt, | : VERSION 01 

3 - Original 

: - Fix sonrents, change BRW to JMP. RW 7-Dec-78 

: - Add **."' to the PSE t directive. j* 22-DEC-78 

3 - Redo fhe case ant rots of he BASE eg O° aie for 

3 compateb' Lity with the PDP-11. Bs 4-APR-1979 

3 Make all external reterences GENERAL a bye Ady ” 15-June-1981 
3 epoch the flags word in the BASIC frame for the set igo 

3 e integer ever? iow bit and use that value as the setting 

3 ioe clearing) of the PSW. Also added entry po ne 

: BASSS$POWJJ NIV to ensure that the IV bit the PSL is 

3 cleared before giving control to oTssPowdJ. LB 1 =may-1982 
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F 
BASSPOWJJ ; BASIC integer ** integer 16-SEP-1 0: AX/VMS o V04-00 Page 
806 BECLARATIONS> . 6-SEP=19 7 983 9 $6 YBASRTL.S L.SRCIBASPOWJJ. MAR:1 3) 
00 ~SBTTL DECLARATIONS 
| $8088 
00 60 ; INCLUDE FILES: 
00 61; 
00 66 
000 63 ; 
44 rt: 3 EXTERNAL DECLARATIONS: 
$000 66 -DSABL GBL 3; Prevent undeclared 
0000 gf 3; symbols from een 
8388 8 3; automatically global. 
$609 3 -EXTRN OTSS$PO ; OTS$ Long ** —— exponentation 
0000 71 »EXTRN OASsK. DIVBY ZER 3; Divide by Zer 
0000 i -EXTRN BASSSSTOP : Error reporting routine 
0000 7 “EXTRN BASSHANDLER ; BASIC condition handler 
0000 74 
0000 2 3 
0000 76 ; MACROS: 
0000 77; 
0000 78 
0000 79 ; 
0000 80 ; EQUATED SYMBOLS: 
0000 81; 
0000 a 
0000 83 ; 
0000 84 ; OWN STORAGE: 
0000 85 ; 
0000 86 
0000 87 ; 
464 He ; PSECT DECLARATIONS: 
00000000 90 -PSECT _BASSCODE PIC, USR, CON, REL, LCL, SHR, - 
44 4 EXE, RD, NOWRT. LONG 


G 14 
BASSPOWJ J ; BASIC integer ** integer 16-SEP-1984 00:00:24 VAX/VMS Macro v04-00 Page 
(1-006 BASSPOWJJ o SBASIC werd 2 word ay 7 95:92:85 BASRTL.SRCIBASPOWJJ.MAR; 1 . 3) 

9° 3¢ ja -SBTTL BASSPOWJJ = BASIC word ** word 
$3 38 3 FUNCTIONAL DESCRIPTION: 

000 98 ; This routine takes BASE ** EXP, using the following table 
it 109 3 for unusual cases: 

$609 19) 3 BASE > Call OTS$POWJJ, normal case. 

0000 1 ¢ 3 BASE = 0, EXP > 0 Return 0. 

0000 18 3 BASE = 0, EXP = 0 Return 1. 

0000 104 ; BASE = 0, ExP < 0 Error: divide by zero 

8080 132 3 BASE < g. EXP even Call OTSS$POWJJ with -BASE 

800 199 3 BASE < 0, EXP odd Call OTS$POWJJ with -BASE, negate result 
0000 108 ; CALLING SEQUENCE: 

0000 109 ; 

44 VY ; CALL result.ww.v = BAS$POWJJ (base.rl.v, exponent.rl.v) 

0000 Ng 3; INPUT PARAMETERS: 

0000 113; 

00000004 0000 114 base = 4 
00000008 0000 115 exponent = 8 

0000 116; 

0000 117 ; IMPLICIT INPUTS: 

0000 118; 

0000 119; NONE 

0000 120; 

0000 121 ; OUTPUT PARAMETERS: 

0000 1 ¢ 3 

0000 \s J NONE 

0000 124 ; 

0000 125 ; IMPLICIT OUTPUTS: 

0000 126; 

0000 127 ; NONE 

0000 128 ; 

0000 129 ; FUNCTION VALUE: 

44 ! ? 3; COMPLETION CODES: 

0000 «(1 $ 3 long result of exponentiation 

0000 133; 

0000 134 ; SIDE EFFECTS: 

0000 135; a 

0000 136; Will signal Divide By Zero if its arguments are bad, 

000 137; and OTS$POWJJ may also signal. 

000 138; 

000 139 ;-- 

000 140 

0000" 0000 141 BASSPOWJJ:: «MASK OTS$POWJJ ; Entry point 

000 146 3; Since this routine uses no 

4 14 3; registers and usually transfers 
00 144 3; control to OTS$SPOWJJ, we copy 
00 145 3; its register save mask and then 
00 169 ; JMP past its save mask and only 
00 14 3 save the registers once 
8 18 
$0 150 ; On a call to BAS$POWJJ, the flags word contained in the BASIC frame 


r 


| BASSPOWJJ : BA - 
806 basse 
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‘4 9 SEP-19 
| WJJ - BASIC word ** word 6-SEP=19 BASRTL.SRCJBASPOWJJ .MAR; 1 (3) 
| 68 13) ; defines whether integer overflow should or should not be enabled. 
| 3 138 ; The value of the flag should dictate the setting within the PSL. 
52, OC AD DO 0002 154° MOVL  12(FP),R2 ; Fetch the saved frame pointer 
51 Q0000000'GF DE 0006 £155 MOVAL “BASSHANDLER,R1 3; Fetch addr of BASSHANDLER 
51 62 Di 000D 138 CMPL (R2),R1 : Check if this is a BASIC frame 
11 is 313 1 BNEQ $ ; Branch if not a BASIC frame 
52 €6A2 8B 01 158 MOVW =26(R2) ,R2 ; Fetch flags word from BASIC frame 
52 F7FF 8F AA 0016 159 BICW #*XF7FF,R2 : Clear all but IV bit 
8§ BS 001B 160 TSTW R2 ; Check if integer overflow is set 
0 13 001D 161 BEQL 8$ : Branch if clear 
SF 11 ooir 166 BRB 9$ : Continue as usual 
B9 1 165 8$: BICPSW #*x20 ; Clear integer overflow in PSW 
04 AC B5 0023 164 9$: TSTW base (AP) 3 Test base relationship to zero 
06 15 0026 165 BLEQ 1$ : If base leq 0, do case ones yore 
00000002'GF 17 0028 196 JMP G*OTSS$POWJJ+2 ; Transfer control to the OTS 
8 ; 4 “ 3 routine to do exponentiation 
QO2E 169 ; Come here if the base is less than or equal to zero. We must filter 
Bose 109 ; several special cases, as described above. 
23. «13 O0¢E 1% is: BEQL = 4$ : Branch if base = 0 
08 AC DD 0030 17 PUSHL exponent (AP) 3; Stack EXP as parameter to OTS$POWJJ 
7E O04 AC CE 0033 174 MNEGL base(AP), -(SP) ; Stack -BASE as param to OTS$POWJJ 
52. 85 0037 175 TSTW R2 ; Check if IV is set 
09 12 0039 176 BNEQ 7$ ; Do the regular CALL to OTS$POWJJ 
0000006C ' GF bs e $8 Vee EAS $6 ,C°BASSSPOMSJ NIV ; Clear IV before JMPing to OTSS$POWJJ 
00000000'GF 02 FB 0044 £179 7$: CALLS #2, G*OTSS$POWJJ ; Call integer power routines 
03 08 AC €9 0048 £180 10$: BLBC exponent (AP) ,2$ ; Branch if exponent even 
50 50 CE OQO4F 181 MNEGL RO, RO 3; Exponent odd, negate the result 
04 005¢ 182 2$: RET > and return with it. 
0053 184 ; Come here if the base is equal to zero. The value we return depends 
0033 132 3 upon the sign of the exponent. 
08 AC DS 0053 187 4s: TSTL exponent (AP) : Test the exponent against zero 
09 #419 #0056 188 L ; Branch if exponent [ss 
ee Ope 4 s BEQL 5$ ; Branch if exponent is 0 
OOSA 191 ; Come here if the base is zero and the exponent is greater than zero. 
005A 138 3; BASIC defines this as 0. 
005A 193 ;- 
50 D4 OO 194 CLRL RO ; RO = 0 
04 O005C 195 RET ; Return to caller 
005D 138 3¢ ; s 
0050 197 ; Come here if the base is zero and the exponent is zero. BASIC defines 
005D 198 ; this as 1. 
005D 199 :- 
50 01 00 005D 0 5s MOVL #1, RO ; RO=1 
04 544 1 RET ; Return to caller. 
a¢ 
061 88 ; Come here if the base is zero and the exponent is less than zero. 
‘5d be 3: BASIC defines this as an error. 
7E OO°'8F 9A 9061 06 és: MOVZBL M#BASSK_DIVBY_ZER, -(SP) ; Divide by zero 
00000000'GF 01 FB 0065 0 CALLS #1, G*BASS$STOP 3 Report error, never return. 
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| BASSPOWJJ ; BASIC integer ** integer 16-SEP-1984 00:00:24 VAX/VMS Macro v04-00 
1-006 BASSSPOWJJ_NIV . g-SEb 1984 390536 LBASRTL. SRCIBASPOW) .MAR: 1 
06¢ 19 .SBTTL BASS$SPOWJJ_NIV 
06C \§ 3++ 
ber 17 ; Functional Description: 
aoet 15 : This routine is an internal entry point, called only by BASS$POWJJ 
06C 16 3 whose sole purpose in this world is to turn off the integer 
006C vs overflow bit in the PSL for the case where the base is less than 
006C 18 ; zero, and where the flags bit in the BASIC frame indicate to turn 
906¢ 19 : off integer overflow. 
Beet 1 : Cal ing Sequence: 
Bpee 5 : CALL BASSPOWJJ (base.rw.v, exponent.rw.v) 
Bore $50 : Input Parameters: 
ger ten 
006C 9: Output Parameters: 
006C 230; 
wy so 
943 238 : Side Effects: 
006C $3 : OTS$POWJJ may signal 
Bet Ga 
006C 238 BAS$$POWJJ_NIV:: 
0000° 006C 39 «MASK OTS$POWJJ ; Entry point 
8B 06E 40 BICPSW a ; Clear IV bit in PSL 
00000002'GF 17 0070 41 JMP G*OTS$POWJJ+2 ; Transfer control to the OTS$ 
0076 rt 3; routine to do exponentiation 
0076 24 
0076 244 .END 


sr 
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BASSPOWJ J ; BASIC integer ** integer 16S -138% 9: 90: $4 AX/VMS Macro v04-00 Page 7 
Symbol table 6-S 41 0 (CBASRTL.SRCIJBASPOWJJ.MAR;1 (4) 
BASSSPOWJJ -NIiv 0000006C oa a 
BAS$$STO eererere 0 
BASSHANDLER reereree : 0 
BASSK_DIVBY_ZER eeeeeeee xX 00 
BASSPOWJJ 00000000 RG 01 
E = 00000004 
EXPONENT = 00000008 
OTSSPOWJJ eerereee = YX 00 
pew mn wean ae nee e soe + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 (¢ 0.) O0O¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_BASSCODE 00000076 ¢ 118.) O1¢ 1.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC LONG 
boon ces emo mma nrecan ea saewa } 
: ;_Per formance indicators ! 
Seuanenaaeenedseenmeacen) 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.10 00: 00: 00.46 
Command processing 111 00:00:00.49 00:00:02.92 
Pass 1 69 00:00:00.62 00:00:01.69 
Synbol table sort 00:00:00.00 00:00:00.00 
Pass 2 56 00:00:00.45 00:00:00.90 
Symbol table output 2 00:00:00.02 00:00:00.02 
Psect synopsis output 2 i ee 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 271 00:00:01.69 00:00:06.01 


The working set Limit was 900 pages. 

2800 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table “— of ey to hold 8 non-local and 9 local symbols. 
244 source Lines were read in Pass 1, produci ng 8 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


eeaneo ne eee seas ceaseeceecenr nas + 


H ; Macro Library statistics : 
+ 


Macro Library name Macros defined 
“S255SDUA28:(SYSLIBISTARLET.MLB;2 0 tS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:BASPOWJJ/0Bs=OBJ$:BASPOWJJ MSRC$:BASPOWJJ/UPDATE=(ENHS: BASPOWJJ) 
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